Public Class DocumentoAlmacenDetalle

    Dim _CIA, _SUC, _TDOC, _DCACOD, _DADCOD, _ARTCOD, _DADACT As String
    Dim _DADCANT As Integer

    Sub New()

    End Sub

    Sub New(ByVal cia As String, ByVal suc As String, ByVal tipodoc As String, ByVal dcacod As String, ByVal dadcod As String, ByVal artcod As String, ByVal dadcant As Integer, ByVal activo As String)
        Me._CIA = cia
        Me._SUC = suc
        Me._TDOC = tipodoc
        Me._DCACOD = dcacod
        Me._DADCOD = dadcod
        Me._ARTCOD = artcod
        Me._DADCANT = dadcant
        Me._DADACT = activo
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(ByVal value As String)
            _CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _SUC
        End Get
        Set(ByVal value As String)
            _SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _TDOC
        End Get
        Set(ByVal value As String)
            _TDOC = value
        End Set
    End Property

    Public Property DCA_Codigo() As String
        Get
            Return _DCACOD
        End Get
        Set(ByVal value As String)
            _DCACOD = value
        End Set
    End Property

    Public Property DAD_Codigo() As String
        Get
            Return _DADCOD
        End Get
        Set(ByVal value As String)
            _DADCOD = value
        End Set
    End Property

    Public Property ART_Codigo() As String
        Get
            Return _ARTCOD
        End Get
        Set(ByVal value As String)
            _ARTCOD = value
        End Set
    End Property

    Public Property DAD_Cantidad() As Integer
        Get
            Return _DADCANT
        End Get
        Set(ByVal value As Integer)
            _DADCANT = value
        End Set
    End Property

    Public Property DAD_Activo() As Integer
        Get
            Return _DADACT
        End Get
        Set(ByVal value As Integer)
            _DADACT = value
        End Set
    End Property

End Class
